home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 August / 1984-08.d64 / string search 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  806b  |  36 lines
  1. 20 a$="dummy data":rem  must be a string
  2. 30 q$="":rem this is to be used as the search string
  3. 40 dima$(300),q%(300):rem searched string and flag array
  4. 45 ml=peek(55)+256*peek(56):rem start address
  5. 100 print"building array"
  6. 110 q$="good"
  7. 120 forl=1to299
  8. 130 :
  9. 140 :a$(l)="abcdefghijklmnopqrstuvwxyz"
  10. 150 :
  11. 160 nextl
  12. 170 a$(1)="garbage good more garbage"
  13. 180 a$(10)="garb good more garb"
  14. 185 a$(70)="good garbage"
  15. 190 a$(100)="garbage good"
  16. 195 a$(250)="garbage good more garbage"
  17. 200 print"array finished"
  18. 300 rem  basic search
  19. 310 print"basic search":ti$="000000"
  20. 320 forl=1to299
  21. 330 :forj=1tolen(a$(l))-len(q$)+1
  22. 340 ::ifmid$(a$(l),j,len(q$))=q$thenq%(l)=1:nextl
  23. 350 :nextj
  24. 360 nextl
  25. 370 printti;"jiffies"
  26. 380 forl=1to299
  27. 390 :ifq%(l)<>0thenprinta$(l)
  28. 395 nextl
  29. 400 rem  ml search
  30. 410 print"ml search":ti$="000000"
  31. 420 sys(ml)
  32. 430 printti;"jiffies"
  33. 440 forl=1to299
  34. 450 :ifq%(l)<>0thenprinta$(l)
  35. 460 nextl
  36.